﻿Public Class ctrMarca

    Public Function retornarDatMarca() As DataTable
        Dim datMarca As New DataTable

        With datMarca
            .Columns.Add("marca", GetType(String))
            .Columns.Add("quantidade", GetType(Double))
            .Columns.Add("pesoTotal", GetType(Double))
            .Columns.Add("valorTonelada", GetType(Double))
            .Columns.Add("custoTonelada", GetType(Double))
            .Columns.Add("percRoyalties", GetType(Double))
            .Columns.Add("valorRoyalties", GetType(Double))

            .TableName = "Marca"

        End With

        Return datMarca

    End Function

End Class
